/*
 * Copyright (C) 2005 The Android Open Source Project
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *      http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */

#define LOG_TAG "Parcel"
#include "common.h"
#include "cParcel.h"
#include <errno.h>
#include <endian.h>
#include <inttypes.h>
#include <stdio.h>
#include <stdlib.h>
#include <stdint.h>
#include <sys/mman.h>
#include <pthread.h>
#include <unistd.h>

#ifndef INT32_MAX
#define INT32_MAX ((int32_t)(2147483647))
#endif

#define LOG_REFS(...)
//#define LOG_REFS(...) ALOG(LOG_DEBUG, "Parcel", __VA_ARGS__)
#define LOG_ALLOC(...)
//#define LOG_ALLOC(...) ALOG(LOG_DEBUG, "Parcel", __VA_ARGS__)

// ---------------------------------------------------------------------------

// This macro should never be used at runtime, as a too large value
// of s could cause an integer overflow. Instead, you should always
// use the wrapper function pad_size()
#define PAD_SIZE_UNSAFE(s) (((s)+3)&~3)

static size_t pad_size(size_t s) {
    if (s > (SIZE_T_MAX - 3)) {
        abort();
    }
    return PAD_SIZE_UNSAFE(s);
}

// Note: must be kept in sync with android/os/StrictMode.java's PENALTY_GATHER
#define STRICT_MODE_PENALTY_GATHER (0x40 << 16)

// Note: must be kept in sync with android/os/Parcel.java's EX_HAS_REPLY_HEADER
#define EX_HAS_REPLY_HEADER -128

// XXX This can be made public if we want to provide
// support for typed data.
struct small_flat_data
{
    uint32_t type;
    uint32_t data;
};

namespace android {

    static pthread_mutex_t gParcelGlobalAllocSizeLock = PTHREAD_MUTEX_INITIALIZER;
    static size_t gParcelGlobalAllocSize = 0;
    static size_t gParcelGlobalAllocCount = 0;

// Maximum size of a blob to transfer in-place.
    static const size_t BLOB_INPLACE_LIMIT = 16 * 1024;

    enum {
        BLOB_INPLACE = 0,
        BLOB_ASHMEM_IMMUTABLE = 1,
        BLOB_ASHMEM_MUTABLE = 2,
    };

    void acquire_object(const flat_binder_object& obj, const void* who, size_t* outAshmemSize)
    {
        switch (obj.hdr.type) {
            case BINDER_TYPE_BINDER:
                if (obj.binder) {
                    LOG_REFS("Parcel %p acquiring reference on local %p", who, obj.cookie);
//                    reinterpret_cast<IBinder*>(obj.cookie)->incStrong(who);
                }
                return;
            case BINDER_TYPE_WEAK_BINDER:
//                if (obj.binder)
//                    reinterpret_cast<RefBase::weakref_type*>(obj.binder)->incWeak(who);
                return;
            case BINDER_TYPE_HANDLE: {
//                const sp<IBinder> b = proc->getStrongProxyForHandle(obj.handle);
//                if (b != NULL) {
//                    LOG_REFS("Parcel %p acquiring reference on remote %p", who, b.get());
//                    b->incStrong(who);
//                }
                return;
            }
            case BINDER_TYPE_WEAK_HANDLE: {
//                const wp<IBinder> b = proc->getWeakProxyForHandle(obj.handle);
//                if (b != NULL) b.get_refs()->incWeak(who);
                return;
            }
            case BINDER_TYPE_FD: {
                if (obj.cookie != 0) {
                    if (outAshmemSize != NULL) {
                        // If we own an ashmem fd, keep track of how much memory it refers to.
//                        int size = ashmem_get_size_region(obj.handle);
//                        if (size > 0) {
//                            *outAshmemSize += size;
//                        }
                    }
                }
                return;
            }
        }

        LOGD("Invalid object type 0x%08x", obj.hdr.type);
    }
//
//    void acquire_object(const sp<ProcessState>& proc,
//                        const flat_binder_object& obj, const void* who)
//    {
//        acquire_object(proc, obj, who, NULL);
//    }

    static void release_object(const flat_binder_object& obj, const void* who, size_t* outAshmemSize)
    {
        switch (obj.hdr.type) {
            case BINDER_TYPE_BINDER:
                if (obj.binder) {
                    LOG_REFS("Parcel %p releasing reference on local %p", who, obj.cookie);
//                    reinterpret_cast<IBinder*>(obj.cookie)->decStrong(who);
                }
                return;
            case BINDER_TYPE_WEAK_BINDER:
//                if (obj.binder)
//                    reinterpret_cast<RefBase::weakref_type*>(obj.binder)->decWeak(who);
                return;
            case BINDER_TYPE_HANDLE: {
//                const sp<IBinder> b = proc->getStrongProxyForHandle(obj.handle);
//                if (b != NULL) {
//                    LOG_REFS("Parcel %p releasing reference on remote %p", who, b.get());
//                    b->decStrong(who);
//                }
                return;
            }
            case BINDER_TYPE_WEAK_HANDLE: {
//                const wp<IBinder> b = proc->getWeakProxyForHandle(obj.handle);
//                if (b != NULL) b.get_refs()->decWeak(who);
                return;
            }
            case BINDER_TYPE_FD: {
                if (outAshmemSize != NULL) {
                    if (obj.cookie != 0) {
//                        int size = ashmem_get_size_region(obj.handle);
//                        if (size > 0) {
//                            *outAshmemSize -= size;
//                        }

                        close(obj.handle);
                    }
                }
                return;
            }
        }

        LOGE("Invalid object type 0x%08x", obj.hdr.type);
    }
//
//    void release_object(const sp<ProcessState>& proc,
//                        const flat_binder_object& obj, const void* who)
//    {
//        release_object(proc, obj, who, NULL);
//    }
//
//    inline static status_t finish_flatten_binder(
//            const sp<IBinder>& /*binder*/, const flat_binder_object& flat, Parcel* out)
//    {
//        return out->writeObject(flat, false);
//    }
//
//    status_t flatten_binder(const sp<ProcessState>& /*proc*/,
//                            const sp<IBinder>& binder, Parcel* out)
//    {
//        flat_binder_object obj;
//
//        obj.flags = 0x7f | FLAT_BINDER_FLAG_ACCEPTS_FDS;
//        if (binder != NULL) {
//            IBinder *local = binder->localBinder();
//            if (!local) {
//                BpBinder *proxy = binder->remoteBinder();
//                if (proxy == NULL) {
//                    ALOGE("null proxy");
//                }
//                const int32_t handle = proxy ? proxy->handle() : 0;
//                obj.type = BINDER_TYPE_HANDLE;
//                obj.binder = 0; /* Don't pass uninitialized stack data to a remote process */
//                obj.handle = handle;
//                obj.cookie = 0;
//            } else {
//                obj.type = BINDER_TYPE_BINDER;
//                obj.binder = reinterpret_cast<uintptr_t>(local->getWeakRefs());
//                obj.cookie = reinterpret_cast<uintptr_t>(local);
//            }
//        } else {
//            obj.type = BINDER_TYPE_BINDER;
//            obj.binder = 0;
//            obj.cookie = 0;
//        }
//
//        return finish_flatten_binder(binder, obj, out);
//    }
//
//    status_t flatten_binder(const sp<ProcessState>& /*proc*/,
//                            const wp<IBinder>& binder, Parcel* out)
//    {
//        flat_binder_object obj;
//
//        obj.flags = 0x7f | FLAT_BINDER_FLAG_ACCEPTS_FDS;
//        if (binder != NULL) {
//            sp<IBinder> real = binder.promote();
//            if (real != NULL) {
//                IBinder *local = real->localBinder();
//                if (!local) {
//                    BpBinder *proxy = real->remoteBinder();
//                    if (proxy == NULL) {
//                        ALOGE("null proxy");
//                    }
//                    const int32_t handle = proxy ? proxy->handle() : 0;
//                    obj.type = BINDER_TYPE_WEAK_HANDLE;
//                    obj.binder = 0; /* Don't pass uninitialized stack data to a remote process */
//                    obj.handle = handle;
//                    obj.cookie = 0;
//                } else {
//                    obj.type = BINDER_TYPE_WEAK_BINDER;
//                    obj.binder = reinterpret_cast<uintptr_t>(binder.get_refs());
//                    obj.cookie = reinterpret_cast<uintptr_t>(binder.unsafe_get());
//                }
//                return finish_flatten_binder(real, obj, out);
//            }
//
//            // XXX How to deal?  In order to flatten the given binder,
//            // we need to probe it for information, which requires a primary
//            // reference...  but we don't have one.
//            //
//            // The OpenBinder implementation uses a dynamic_cast<> here,
//            // but we can't do that with the different reference counting
//            // implementation we are using.
//            ALOGE("Unable to unflatten Binder weak reference!");
//            obj.type = BINDER_TYPE_BINDER;
//            obj.binder = 0;
//            obj.cookie = 0;
//            return finish_flatten_binder(NULL, obj, out);
//
//        } else {
//            obj.type = BINDER_TYPE_BINDER;
//            obj.binder = 0;
//            obj.cookie = 0;
//            return finish_flatten_binder(NULL, obj, out);
//        }
//    }
//
//    inline static status_t finish_unflatten_binder(
//            BpBinder* /*proxy*/, const flat_binder_object& /*flat*/,
//            const Parcel& /*in*/)
//    {
//        return NO_ERROR;
//    }
//
//    status_t unflatten_binder(const sp<ProcessState>& proc,
//                              const Parcel& in, sp<IBinder>* out)
//    {
//        const flat_binder_object* flat = in.readObject(false);
//
//        if (flat) {
//            switch (flat->type) {
//                case BINDER_TYPE_BINDER:
//                    *out = reinterpret_cast<IBinder*>(flat->cookie);
//                    return finish_unflatten_binder(NULL, *flat, in);
//                case BINDER_TYPE_HANDLE:
//                    *out = proc->getStrongProxyForHandle(flat->handle);
//                    return finish_unflatten_binder(
//                            static_cast<BpBinder*>(out->get()), *flat, in);
//            }
//        }
//        return BAD_TYPE;
//    }
//
//    status_t unflatten_binder(const sp<ProcessState>& proc,
//                              const Parcel& in, wp<IBinder>* out)
//    {
//        const flat_binder_object* flat = in.readObject(false);
//
//        if (flat) {
//            switch (flat->type) {
//                case BINDER_TYPE_BINDER:
//                    *out = reinterpret_cast<IBinder*>(flat->cookie);
//                    return finish_unflatten_binder(NULL, *flat, in);
//                case BINDER_TYPE_WEAK_BINDER:
//                    if (flat->binder != 0) {
//                        out->set_object_and_refs(
//                                reinterpret_cast<IBinder*>(flat->cookie),
//                                reinterpret_cast<RefBase::weakref_type*>(flat->binder));
//                    } else {
//                        *out = NULL;
//                    }
//                    return finish_unflatten_binder(NULL, *flat, in);
//                case BINDER_TYPE_HANDLE:
//                case BINDER_TYPE_WEAK_HANDLE:
//                    *out = proc->getWeakProxyForHandle(flat->handle);
//                    return finish_unflatten_binder(
//                            static_cast<BpBinder*>(out->unsafe_get()), *flat, in);
//            }
//        }
//        return BAD_TYPE;
//    }

// ---------------------------------------------------------------------------

    Parcel::Parcel()
    {
        LOG_ALLOC("Parcel %p: constructing", this);
        initState();
    }

    Parcel::~Parcel()
    {
        freeDataNoInit();
        LOG_ALLOC("Parcel %p: destroyed", this);
    }

    size_t Parcel::getGlobalAllocSize() {
        pthread_mutex_lock(&gParcelGlobalAllocSizeLock);
        size_t size = gParcelGlobalAllocSize;
        pthread_mutex_unlock(&gParcelGlobalAllocSizeLock);
        return size;
    }

    size_t Parcel::getGlobalAllocCount() {
        pthread_mutex_lock(&gParcelGlobalAllocSizeLock);
        size_t count = gParcelGlobalAllocCount;
        pthread_mutex_unlock(&gParcelGlobalAllocSizeLock);
        return count;
    }

    const uint8_t* Parcel::data() const
    {
        return mData;
    }

    size_t Parcel::dataSize() const
    {
        return (mDataSize > mDataPos ? mDataSize : mDataPos);
    }

    size_t Parcel::dataAvail() const
    {
        // TODO: decide what to do about the possibility that this can
        // report an available-data size that exceeds a Java int's max
        // positive value, causing havoc.  Fortunately this will only
        // happen if someone constructs a Parcel containing more than two
        // gigabytes of data, which on typical phone hardware is simply
        // not possible.
        return dataSize() - dataPosition();
    }

    size_t Parcel::dataPosition() const
    {
        return mDataPos;
    }

    size_t Parcel::dataCapacity() const
    {
        return mDataCapacity;
    }

    status_t Parcel::setDataSize(size_t size)
    {
        if (size > INT32_MAX) {
            // don't accept size_t values which may have come from an
            // inadvertent conversion from a negative int.
            return BAD_VALUE;
        }

        status_t err;
        err = continueWrite(size);
        if (err == NO_ERROR) {
            mDataSize = size;
            LOGI("setDataSize Setting data size of %p to %zu", this, mDataSize);
        }
        return err;
    }

    void Parcel::setDataPosition(size_t pos) const
    {
        if (pos > INT32_MAX) {
            // don't accept size_t values which may have come from an
            // inadvertent conversion from a negative int.
            abort();
        }

        mDataPos = pos;
        mNextObjectHint = 0;
    }

    status_t Parcel::setDataCapacity(size_t size)
    {
        if (size > INT32_MAX) {
            // don't accept size_t values which may have come from an
            // inadvertent conversion from a negative int.
            return BAD_VALUE;
        }

        if (size > mDataCapacity) return continueWrite(size);
        return NO_ERROR;
    }

//    status_t Parcel::setData(const uint8_t* buffer, size_t len)
//    {
//        if (len > INT32_MAX) {
//            // don't accept size_t values which may have come from an
//            // inadvertent conversion from a negative int.
//            return BAD_VALUE;
//        }
//
//        status_t err = restartWrite(len);
//        if (err == NO_ERROR) {
//            memcpy(const_cast<uint8_t*>(data()), buffer, len);
//            mDataSize = len;
//            mFdsKnown = false;
//        }
//        return err;
//    }

//    status_t Parcel::appendFrom(const Parcel *parcel, size_t offset, size_t len)
//    {
//        const sp<ProcessState> proc(ProcessState::self());
//        status_t err;
//        const uint8_t *data = parcel->mData;
//        const binder_size_t *objects = parcel->mObjects;
//        size_t size = parcel->mObjectsSize;
//        int startPos = mDataPos;
//        int firstIndex = -1, lastIndex = -2;
//
//        if (len == 0) {
//            return NO_ERROR;
//        }
//
//        if (len > INT32_MAX) {
//            // don't accept size_t values which may have come from an
//            // inadvertent conversion from a negative int.
//            return BAD_VALUE;
//        }
//
//        // range checks against the source parcel size
//        if ((offset > parcel->mDataSize)
//            || (len > parcel->mDataSize)
//            || (offset + len > parcel->mDataSize)) {
//            return BAD_VALUE;
//        }
//
//        // Count objects in range
//        for (int i = 0; i < (int) size; i++) {
//            size_t off = objects[i];
//            if ((off >= offset) && (off + sizeof(flat_binder_object) <= offset + len)) {
//                if (firstIndex == -1) {
//                    firstIndex = i;
//                }
//                lastIndex = i;
//            }
//        }
//        int numObjects = lastIndex - firstIndex + 1;
//
//        if ((mDataSize+len) > mDataCapacity) {
//            // grow data
//            err = growData(len);
//            if (err != NO_ERROR) {
//                return err;
//            }
//        }
//
//        // append data
//        memcpy(mData + mDataPos, data + offset, len);
//        mDataPos += len;
//        mDataSize += len;
//
//        err = NO_ERROR;
//
//        if (numObjects > 0) {
//            // grow objects
//            if (mObjectsCapacity < mObjectsSize + numObjects) {
//                size_t newSize = ((mObjectsSize + numObjects)*3)/2;
//                if (newSize*sizeof(binder_size_t) < mObjectsSize) return NO_MEMORY;   // overflow
//                binder_size_t *objects =
//                        (binder_size_t*)realloc(mObjects, newSize*sizeof(binder_size_t));
//                if (objects == (binder_size_t*)0) {
//                    return NO_MEMORY;
//                }
//                mObjects = objects;
//                mObjectsCapacity = newSize;
//            }
//
//            // append and acquire objects
//            int idx = mObjectsSize;
//            for (int i = firstIndex; i <= lastIndex; i++) {
//                size_t off = objects[i] - offset + startPos;
//                mObjects[idx++] = off;
//                mObjectsSize++;
//
//                flat_binder_object* flat
//                        = reinterpret_cast<flat_binder_object*>(mData + off);
//                acquire_object(proc, *flat, this, &mOpenAshmemSize);
//
//                if (flat->type == BINDER_TYPE_FD) {
//                    // If this is a file descriptor, we need to dup it so the
//                    // new Parcel now owns its own fd, and can declare that we
//                    // officially know we have fds.
//                    flat->handle = dup(flat->handle);
//                    flat->cookie = 1;
//                    mHasFds = mFdsKnown = true;
//                    if (!mAllowFds) {
//                        err = FDS_NOT_ALLOWED;
//                    }
//                }
//            }
//        }
//
//        return err;
//    }

    bool Parcel::allowFds() const
    {
        return mAllowFds;
    }

    bool Parcel::pushAllowFds(bool allowFds)
    {
        const bool origValue = mAllowFds;
        if (!allowFds) {
            mAllowFds = false;
        }
        return origValue;
    }

    void Parcel::restoreAllowFds(bool lastValue)
    {
        mAllowFds = lastValue;
    }

    bool Parcel::hasFileDescriptors() const
    {
        if (!mFdsKnown) {
            scanForFds();
        }
        return mHasFds;
    }

// Write RPC headers.  (previously just the interface token)
    status_t Parcel::writeInterfaceToken(const String16& interface)
    {
        writeInt32(STRICT_MODE_PENALTY_GATHER);
        // currently the interface identification token is just its name as a string
        return writeString16(interface);
    }

//    bool Parcel::checkInterface(IBinder* binder) const
//    {
//        return enforceInterface(binder->getInterfaceDescriptor());
//    }

//    bool Parcel::enforceInterface(const String16& interface,
//                                  IPCThreadState* threadState) const
//    {
//        int32_t strictPolicy = readInt32();
//        if (threadState == NULL) {
//            threadState = IPCThreadState::self();
//        }
//        if ((threadState->getLastTransactionBinderFlags() &
//             IBinder::FLAG_ONEWAY) != 0) {
//            // For one-way calls, the callee is running entirely
//            // disconnected from the caller, so disable StrictMode entirely.
//            // Not only does disk/network usage not impact the caller, but
//            // there's no way to commuicate back any violations anyway.
//            threadState->setStrictModePolicy(0);
//        } else {
//            threadState->setStrictModePolicy(strictPolicy);
//        }
//        const String16 str(readString16());
//        if (str == interface) {
//            return true;
//        } else {
//            LOGW("**** enforceInterface() expected '%s' but read '%s'",
//                  String8(interface).string(), String8(str).string());
//            return false;
//        }
//    }

    const binder_size_t* Parcel::objects() const
    {
        return mObjects;
    }

    size_t Parcel::objectsCount() const
    {
        return mObjectsSize;
    }

    status_t Parcel::errorCheck() const
    {
        return mError;
    }

    void Parcel::setError(status_t err)
    {
        mError = err;
    }

    status_t Parcel::finishWrite(size_t len)
    {
        if (len > INT32_MAX) {
            // don't accept size_t values which may have come from an
            // inadvertent conversion from a negative int.
            return BAD_VALUE;
        }

        //printf("Finish write of %d\n", len);
        mDataPos += len;
        LOGI("finishWrite Setting data pos of %p to %zu", this, mDataPos);
        if (mDataPos > mDataSize) {
            mDataSize = mDataPos;
            LOGI("finishWrite Setting data size of %p to %zu", this, mDataSize);
        }
        //printf("New pos=%d, size=%d\n", mDataPos, mDataSize);
        return NO_ERROR;
    }

    status_t Parcel::writeUnpadded(const void* data, size_t len)
    {
        if (len > INT32_MAX) {
            // don't accept size_t values which may have come from an
            // inadvertent conversion from a negative int.
            return BAD_VALUE;
        }

        size_t end = mDataPos + len;
        if (end < mDataPos) {
            // integer overflow
            return BAD_VALUE;
        }

        if (end <= mDataCapacity) {
            restart_write:
            memcpy(mData+mDataPos, data, len);
            return finishWrite(len);
        }

        status_t err = growData(len);
        if (err == NO_ERROR) goto restart_write;
        return err;
    }

    status_t Parcel::write(const void* data, size_t len)
    {
        if (len > INT32_MAX) {
            // don't accept size_t values which may have come from an
            // inadvertent conversion from a negative int.
            return BAD_VALUE;
        }

        void* const d = writeInplace(len);
        if (d) {
            memcpy(d, data, len);
            return NO_ERROR;
        }
        return mError;
    }

    void* Parcel::writeInplace(size_t len)
    {
        if (len > INT32_MAX) {
            // don't accept size_t values which may have come from an
            // inadvertent conversion from a negative int.
            return NULL;
        }

        const size_t padded = pad_size(len);

        // sanity check for integer overflow
        if (mDataPos+padded < mDataPos) {
            return NULL;
        }

        if ((mDataPos+padded) <= mDataCapacity) {
            restart_write:
            //printf("Writing %ld bytes, padded to %ld\n", len, padded);
            uint8_t* const data = mData+mDataPos;

            // Need to pad at end?
            if (padded != len) {
#if BYTE_ORDER == BIG_ENDIAN
                static const uint32_t mask[4] = {
                        0x00000000, 0xffffff00, 0xffff0000, 0xff000000
                };
#endif
#if BYTE_ORDER == LITTLE_ENDIAN
                static const uint32_t mask[4] = {
                        0x00000000, 0x00ffffff, 0x0000ffff, 0x000000ff
                };
#endif
                //printf("Applying pad mask: %p to %p\n", (void*)mask[padded-len],
                //    *reinterpret_cast<void**>(data+padded-4));
                *reinterpret_cast<uint32_t*>(data+padded-4) &= mask[padded-len];
            }

            finishWrite(padded);
            return data;
        }

        status_t err = growData(padded);
        if (err == NO_ERROR) goto restart_write;
        return NULL;
    }

    status_t Parcel::writeInt32(int32_t val)
    {
        return writeAligned(val);
    }

    status_t Parcel::writeUint32(uint32_t val)
    {
        return writeAligned(val);
    }

    status_t Parcel::writeInt32Array(size_t len, const int32_t *val) {
        if (len > INT32_MAX) {
            // don't accept size_t values which may have come from an
            // inadvertent conversion from a negative int.
            return BAD_VALUE;
        }

        if (!val) {
            return writeInt32(-1);
        }
        status_t ret = writeInt32(static_cast<uint32_t>(len));
        if (ret == NO_ERROR) {
            ret = write(val, len * sizeof(*val));
        }
        return ret;
    }
    status_t Parcel::writeByteArray(size_t len, const uint8_t *val) {
        if (len > INT32_MAX) {
            // don't accept size_t values which may have come from an
            // inadvertent conversion from a negative int.
            return BAD_VALUE;
        }

        if (!val) {
            return writeInt32(-1);
        }
        status_t ret = writeInt32(static_cast<uint32_t>(len));
        if (ret == NO_ERROR) {
            ret = write(val, len * sizeof(*val));
        }
        return ret;
    }

    status_t Parcel::writeInt64(int64_t val)
    {
        return writeAligned(val);
    }

    status_t Parcel::writeUint64(uint64_t val)
    {
        return writeAligned(val);
    }

    status_t Parcel::writePointer(uintptr_t val)
    {
        return writeAligned<binder_uintptr_t>(val);
    }

    status_t Parcel::writeFloat(float val)
    {
        return writeAligned(val);
    }

#if defined(__mips__) && defined(__mips_hard_float)

    status_t Parcel::writeDouble(double val)
{
    union {
        double d;
        unsigned long long ll;
    } u;
    u.d = val;
    return writeAligned(u.ll);
}

#else

    status_t Parcel::writeDouble(double val)
    {
        return writeAligned(val);
    }

#endif

    status_t Parcel::writeCString(const char* str)
    {
        return write(str, strlen(str)+1);
    }

//    status_t Parcel::writeString8(const String8& str)
//    {
//        status_t err = writeInt32(str.bytes());
//        // only write string if its length is more than zero characters,
//        // as readString8 will only read if the length field is non-zero.
//        // this is slightly different from how writeString16 works.
//        if (str.bytes() > 0 && err == NO_ERROR) {
//            err = write(str.string(), str.bytes()+1);
//        }
//        return err;
//    }

    status_t Parcel::writeString16(const String16& str)
    {
        return writeString16(str.string(), str.size());
    }

    status_t Parcel::writeString16(const Char16* str, size_t len)
    {
        if (str == NULL) return writeInt32(-1);

        status_t err = writeInt32(len);
        if (err == NO_ERROR) {
            len *= sizeof(Char16);
            uint8_t* data = (uint8_t*)writeInplace(len+sizeof(Char16));
            if (data) {
                memcpy(data, str, len);
                *reinterpret_cast<Char16*>(data+len) = 0;
                return NO_ERROR;
            }
            err = mError;
        }
        return err;
    }

//    status_t Parcel::writeStrongBinder(const sp<IBinder>& val)
//    {
//        return flatten_binder(ProcessState::self(), val, this);
//    }

    status_t Parcel::writeNullBinder() {
        flat_binder_object obj;

        obj.flags = 0x7f | FLAT_BINDER_FLAG_ACCEPTS_FDS;
        obj.hdr.type = BINDER_TYPE_BINDER;
        obj.binder = 0;
        obj.cookie = 0;
        return writeObject(obj, false);
    }

//    status_t Parcel::writeWeakBinder(const wp<IBinder>& val)
//    {
//        return flatten_binder(ProcessState::self(), val, this);
//    }

//    status_t Parcel::writeNativeHandle(const native_handle* handle)
//    {
//        if (!handle || handle->version != sizeof(native_handle))
//            return BAD_TYPE;
//
//        status_t err;
//        err = writeInt32(handle->numFds);
//        if (err != NO_ERROR) return err;
//
//        err = writeInt32(handle->numInts);
//        if (err != NO_ERROR) return err;
//
//        for (int i=0 ; err==NO_ERROR && i<handle->numFds ; i++)
//            err = writeDupFileDescriptor(handle->data[i]);
//
//        if (err != NO_ERROR) {
//            LOGD("write native handle, write dup fd failed");
//            return err;
//        }
//        err = write(handle->data + handle->numFds, sizeof(int)*handle->numInts);
//        return err;
//    }

    status_t Parcel::writeFileDescriptor(int fd, bool takeOwnership)
    {
        flat_binder_object obj;
        obj.hdr.type = BINDER_TYPE_FD;
        obj.flags = 0x7f | FLAT_BINDER_FLAG_ACCEPTS_FDS;
        obj.binder = 0; /* Don't pass uninitialized stack data to a remote process */
        obj.handle = fd;
        obj.cookie = takeOwnership ? 1 : 0;
        return writeObject(obj, true);
    }

    status_t Parcel::writeDupFileDescriptor(int fd)
    {
        int dupFd = dup(fd);
        if (dupFd < 0) {
            return -errno;
        }
        status_t err = writeFileDescriptor(dupFd, true /*takeOwnership*/);
        if (err) {
            close(dupFd);
        }
        return err;
    }

//    status_t Parcel::writeBlob(size_t len, bool mutableCopy, WritableBlob* outBlob)
//    {
//        if (len > INT32_MAX) {
//            // don't accept size_t values which may have come from an
//            // inadvertent conversion from a negative int.
//            return BAD_VALUE;
//        }
//
//        status_t status;
//        if (!mAllowFds || len <= BLOB_INPLACE_LIMIT) {
//            LOGI("writeBlob: write in place");
//            status = writeInt32(BLOB_INPLACE);
//            if (status) return status;
//
//            void* ptr = writeInplace(len);
//            if (!ptr) return NO_MEMORY;
//
//            outBlob->init(-1, ptr, len, false);
//            return NO_ERROR;
//        }
//
//        LOGI("writeBlob: write to ashmem");
//        int fd = ashmem_create_region("Parcel Blob", len);
//        if (fd < 0) return NO_MEMORY;
//
//        int result = ashmem_set_prot_region(fd, PROT_READ | PROT_WRITE);
//        if (result < 0) {
//            status = result;
//        } else {
//            void* ptr = ::mmap(NULL, len, PROT_READ | PROT_WRITE, MAP_SHARED, fd, 0);
//            if (ptr == MAP_FAILED) {
//                status = -errno;
//            } else {
//                if (!mutableCopy) {
//                    result = ashmem_set_prot_region(fd, PROT_READ);
//                }
//                if (result < 0) {
//                    status = result;
//                } else {
//                    status = writeInt32(mutableCopy ? BLOB_ASHMEM_MUTABLE : BLOB_ASHMEM_IMMUTABLE);
//                    if (!status) {
//                        status = writeFileDescriptor(fd, true /*takeOwnership*/);
//                        if (!status) {
//                            outBlob->init(fd, ptr, len, mutableCopy);
//                            return NO_ERROR;
//                        }
//                    }
//                }
//            }
//            ::munmap(ptr, len);
//        }
//        ::close(fd);
//        return status;
//    }

    status_t Parcel::writeDupImmutableBlobFileDescriptor(int fd)
    {
        // Must match up with what's done in writeBlob.
        if (!mAllowFds) return FDS_NOT_ALLOWED;
        status_t status = writeInt32(BLOB_ASHMEM_IMMUTABLE);
        if (status) return status;
        return writeDupFileDescriptor(fd);
    }

    status_t Parcel::write(const FlattenableHelperInterface& val)
    {
        status_t err;

        // size if needed
        const size_t len = val.getFlattenedSize();
        const size_t fd_count = val.getFdCount();

        if ((len > INT32_MAX) || (fd_count > INT32_MAX)) {
            // don't accept size_t values which may have come from an
            // inadvertent conversion from a negative int.
            return BAD_VALUE;
        }

        err = this->writeInt32(len);
        if (err) return err;

        err = this->writeInt32(fd_count);
        if (err) return err;

        // payload
        void* const buf = this->writeInplace(pad_size(len));
        if (buf == NULL)
            return BAD_VALUE;

        int* fds = NULL;
        if (fd_count) {
            fds = new int[fd_count];
        }

        err = val.flatten(buf, len, fds, fd_count);
        for (size_t i=0 ; i<fd_count && err==NO_ERROR ; i++) {
            err = this->writeDupFileDescriptor( fds[i] );
        }

        if (fd_count) {
            delete [] fds;
        }

        return err;
    }

    status_t Parcel::writeObject(const flat_binder_object& val, bool nullMetaData)
    {
        const bool enoughData = (mDataPos+sizeof(val)) <= mDataCapacity;
        const bool enoughObjects = mObjectsSize < mObjectsCapacity;
        if (enoughData && enoughObjects) {
            restart_write:
            *reinterpret_cast<flat_binder_object*>(mData+mDataPos) = val;

            // remember if it's a file descriptor
            if (val.hdr.type == BINDER_TYPE_FD) {
                if (!mAllowFds) {
                    // fail before modifying our object index
                    return FDS_NOT_ALLOWED;
                }
                mHasFds = mFdsKnown = true;
            }

            // Need to write meta-data?
            if (nullMetaData || val.binder != 0) {
                mObjects[mObjectsSize] = mDataPos;
                acquire_object(val, this, &mOpenAshmemSize);
                mObjectsSize++;
            }

            return finishWrite(sizeof(flat_binder_object));
        }

        if (!enoughData) {
            const status_t err = growData(sizeof(val));
            if (err != NO_ERROR) return err;
        }
        if (!enoughObjects) {
            size_t newSize = ((mObjectsSize+2)*3)/2;
            if (newSize*sizeof(binder_size_t) < mObjectsSize) return NO_MEMORY;   // overflow
            binder_size_t* objects = (binder_size_t*)realloc(mObjects, newSize*sizeof(binder_size_t));
            if (objects == NULL) return NO_MEMORY;
            mObjects = objects;
            mObjectsCapacity = newSize;
        }

        goto restart_write;
    }

    status_t Parcel::writeNoException()
    {
        return writeInt32(0);
    }

    void Parcel::remove(size_t /*start*/, size_t /*amt*/)
    {
//        LOG_ALWAYS_FATAL("Parcel::remove() not yet implemented!");
    }

    status_t Parcel::read(void* outData, size_t len) const
    {
        if (len > INT32_MAX) {
            // don't accept size_t values which may have come from an
            // inadvertent conversion from a negative int.
            return BAD_VALUE;
        }

        if ((mDataPos+pad_size(len)) >= mDataPos && (mDataPos+pad_size(len)) <= mDataSize
            && len <= pad_size(len)) {
            memcpy(outData, mData+mDataPos, len);
            mDataPos += pad_size(len);
            LOGI("read Setting data pos of %p to %zu", this, mDataPos);
            return NO_ERROR;
        }
        return NOT_ENOUGH_DATA;
    }

    const void* Parcel::readInplace(size_t len) const
    {
        if (len > INT32_MAX) {
            // don't accept size_t values which may have come from an
            // inadvertent conversion from a negative int.
            return NULL;
        }

        if ((mDataPos+pad_size(len)) >= mDataPos && (mDataPos+pad_size(len)) <= mDataSize
            && len <= pad_size(len)) {
            const void* data = mData+mDataPos;
            mDataPos += pad_size(len);
            LOGI("readInplace Setting data pos of %p to %zu", this, mDataPos);
            return data;
        }
        return NULL;
    }

    template<class T>
    status_t Parcel::readAligned(T *pArg) const {
        COMPILE_TIME_ASSERT_FUNCTION_SCOPE(PAD_SIZE_UNSAFE(sizeof(T)) == sizeof(T));

        if ((mDataPos+sizeof(T)) <= mDataSize) {
            const void* data = mData+mDataPos;
            mDataPos += sizeof(T);
            *pArg =  *reinterpret_cast<const T*>(data);
            return NO_ERROR;
        } else {
            return NOT_ENOUGH_DATA;
        }
    }

    template<class T>
    T Parcel::readAligned() const {
        T result;
        if (readAligned(&result) != NO_ERROR) {
            result = 0;
        }

        return result;
    }

    template<class T>
    status_t Parcel::writeAligned(T val) {
        COMPILE_TIME_ASSERT_FUNCTION_SCOPE(PAD_SIZE_UNSAFE(sizeof(T)) == sizeof(T));

        if ((mDataPos+sizeof(val)) <= mDataCapacity) {
            restart_write:
            *reinterpret_cast<T*>(mData+mDataPos) = val;
            return finishWrite(sizeof(val));
        }

        status_t err = growData(sizeof(val));
        if (err == NO_ERROR) goto restart_write;
        return err;
    }

    status_t Parcel::readInt32(int32_t *pArg) const
    {
        return readAligned(pArg);
    }

    int32_t Parcel::readInt32() const
    {
        return readAligned<int32_t>();
    }

    status_t Parcel::readUint32(uint32_t *pArg) const
    {
        return readAligned(pArg);
    }

    uint32_t Parcel::readUint32() const
    {
        return readAligned<uint32_t>();
    }

    status_t Parcel::readInt64(int64_t *pArg) const
    {
        return readAligned(pArg);
    }


    int64_t Parcel::readInt64() const
    {
        return readAligned<int64_t>();
    }

    status_t Parcel::readUint64(uint64_t *pArg) const
    {
        return readAligned(pArg);
    }

    uint64_t Parcel::readUint64() const
    {
        return readAligned<uint64_t>();
    }

    status_t Parcel::readPointer(uintptr_t *pArg) const
    {
        status_t ret;
        binder_uintptr_t ptr;
        ret = readAligned(&ptr);
        if (!ret)
            *pArg = ptr;
        return ret;
    }

    uintptr_t Parcel::readPointer() const
    {
        return readAligned<binder_uintptr_t>();
    }


    status_t Parcel::readFloat(float *pArg) const
    {
        return readAligned(pArg);
    }


    float Parcel::readFloat() const
    {
        return readAligned<float>();
    }

#if defined(__mips__) && defined(__mips_hard_float)

    status_t Parcel::readDouble(double *pArg) const
{
    union {
      double d;
      unsigned long long ll;
    } u;
    u.d = 0;
    status_t status;
    status = readAligned(&u.ll);
    *pArg = u.d;
    return status;
}

double Parcel::readDouble() const
{
    union {
      double d;
      unsigned long long ll;
    } u;
    u.ll = readAligned<unsigned long long>();
    return u.d;
}

#else

    status_t Parcel::readDouble(double *pArg) const
    {
        return readAligned(pArg);
    }

    double Parcel::readDouble() const
    {
        return readAligned<double>();
    }

#endif

    status_t Parcel::readIntPtr(intptr_t *pArg) const
    {
        return readAligned(pArg);
    }


    intptr_t Parcel::readIntPtr() const
    {
        return readAligned<intptr_t>();
    }


    const char* Parcel::readCString() const
    {
        const size_t avail = mDataSize-mDataPos;
        if (avail > 0) {
            const char* str = reinterpret_cast<const char*>(mData+mDataPos);
            // is the string's trailing NUL within the parcel's valid bounds?
            const char* eos = reinterpret_cast<const char*>(memchr(str, 0, avail));
            if (eos) {
                const size_t len = eos - str;
                mDataPos += pad_size(len+1);
                LOGI("readCString Setting data pos of %p to %zu", this, mDataPos);
                return str;
            }
        }
        return NULL;
    }

//    String8 Parcel::readString8() const
//    {
//        int32_t size = readInt32();
//        // watch for potential int overflow adding 1 for trailing NUL
//        if (size > 0 && size < INT32_MAX) {
//            const char* str = (const char*)readInplace(size+1);
//            if (str) return String8(str, size);
//        }
//        return String8();
//    }

    String16 Parcel::readString16() const
    {
        size_t len;
        const Char16* str = readString16Inplace(&len);
        if (str) return String16(str, len);
        LOGE("Reading a NULL string not supported here.");
        return String16();
    }

    const Char16* Parcel::readString16Inplace(size_t* outLen) const
    {
        int32_t size = readInt32();
        // watch for potential int overflow from size+1
        if (size >= 0 && size < INT32_MAX) {
            *outLen = size;
            const Char16* str = (const Char16*)readInplace((size+1)*sizeof(Char16));
            if (str != NULL) {
                return str;
            }
        }
        *outLen = 0;
        return NULL;
    }

//    sp<IBinder> Parcel::readStrongBinder() const
//    {
//        sp<IBinder> val;
//        unflatten_binder(ProcessState::self(), *this, &val);
//        return val;
//    }
//
//    wp<IBinder> Parcel::readWeakBinder() const
//    {
//        wp<IBinder> val;
//        unflatten_binder(ProcessState::self(), *this, &val);
//        return val;
//    }

    int32_t Parcel::readExceptionCode() const
    {
        int32_t exception_code = readAligned<int32_t>();
        if (exception_code == EX_HAS_REPLY_HEADER) {
            int32_t header_start = dataPosition();
            int32_t header_size = readAligned<int32_t>();
            // Skip over fat responses headers.  Not used (or propagated) in
            // native code
            setDataPosition(header_start + header_size);
            // And fat response headers are currently only used when there are no
            // exceptions, so return no error:
            return 0;
        }
        return exception_code;
    }

//    native_handle* Parcel::readNativeHandle() const
//    {
//        int numFds, numInts;
//        status_t err;
//        err = readInt32(&numFds);
//        if (err != NO_ERROR) return 0;
//        err = readInt32(&numInts);
//        if (err != NO_ERROR) return 0;
//
//        native_handle* h = native_handle_create(numFds, numInts);
//        if (!h) {
//            return 0;
//        }
//
//        for (int i=0 ; err==NO_ERROR && i<numFds ; i++) {
//            h->data[i] = dup(readFileDescriptor());
//            if (h->data[i] < 0) {
//                for (int j = 0; j < i; j++) {
//                    close(h->data[j]);
//                }
//                native_handle_delete(h);
//                return 0;
//            }
//        }
//        err = read(h->data + numFds, sizeof(int)*numInts);
//        if (err != NO_ERROR) {
//            native_handle_close(h);
//            native_handle_delete(h);
//            h = 0;
//        }
//        return h;
//    }


    int Parcel::readFileDescriptor() const
    {
        const flat_binder_object* flat = readObject(true);
        if (flat) {
            switch (flat->hdr.type) {
                case BINDER_TYPE_FD:
                    //ALOGI("Returning file descriptor %ld from parcel %p", flat->handle, this);
                    return flat->handle;
            }
        }
        return BAD_TYPE;
    }

    status_t Parcel::readBlob(size_t len, ReadableBlob* outBlob) const
    {
        int32_t blobType;
        status_t status = readInt32(&blobType);
        if (status) return status;

        if (blobType == BLOB_INPLACE) {
            LOGI("readBlob: read in place");
            const void* ptr = readInplace(len);
            if (!ptr) return BAD_VALUE;

            outBlob->init(-1, const_cast<void*>(ptr), len, false);
            return NO_ERROR;
        }

        LOGI("readBlob: read from ashmem");
        bool isMutable = (blobType == BLOB_ASHMEM_MUTABLE);
        int fd = readFileDescriptor();
        if (fd == int(BAD_TYPE)) return BAD_VALUE;

        void* ptr = ::mmap(NULL, len, isMutable ? PROT_READ | PROT_WRITE : PROT_READ,
                           MAP_SHARED, fd, 0);
        if (ptr == MAP_FAILED) return NO_MEMORY;

        outBlob->init(fd, ptr, len, isMutable);
        return NO_ERROR;
    }

    status_t Parcel::read(FlattenableHelperInterface& val) const
    {
        // size
        const size_t len = this->readInt32();
        const size_t fd_count = this->readInt32();

        if (len > INT32_MAX) {
            // don't accept size_t values which may have come from an
            // inadvertent conversion from a negative int.
            return BAD_VALUE;
        }

        // payload
        void const* const buf = this->readInplace(pad_size(len));
        if (buf == NULL)
            return BAD_VALUE;

        int* fds = NULL;
        if (fd_count) {
            fds = new int[fd_count];
        }

        status_t err = NO_ERROR;
        for (size_t i=0 ; i<fd_count && err==NO_ERROR ; i++) {
            fds[i] = dup(this->readFileDescriptor());
            if (fds[i] < 0) {
                err = BAD_VALUE;
                LOGE("dup() failed in Parcel::read, i is %zu, fds[i] is %d, fd_count is %zu, error: %s",
                      i, fds[i], fd_count, strerror(errno));
            }
        }

        if (err == NO_ERROR) {
            err = val.unflatten(buf, len, fds, fd_count);
        }

        if (fd_count) {
            delete [] fds;
        }

        return err;
    }
    const flat_binder_object* Parcel::readObject(bool nullMetaData) const
    {
        const size_t DPOS = mDataPos;
        if ((DPOS+sizeof(flat_binder_object)) <= mDataSize) {
            const flat_binder_object* obj
                    = reinterpret_cast<const flat_binder_object*>(mData+DPOS);
            mDataPos = DPOS + sizeof(flat_binder_object);
            if (!nullMetaData && (obj->cookie == 0 && obj->binder == 0)) {
                // When transferring a NULL object, we don't write it into
                // the object list, so we don't want to check for it when
                // reading.
                LOGI("readObject Setting data pos of %p to %zu", this, mDataPos);
                return obj;
            }

            // Ensure that this object is valid...
            binder_size_t* const OBJS = mObjects;
            const size_t N = mObjectsSize;
            size_t opos = mNextObjectHint;

            if (N > 0) {
                LOGI("Parcel %p looking for obj at %zu, hint=%zu",
                      this, DPOS, opos);

                // Start at the current hint position, looking for an object at
                // the current data position.
                if (opos < N) {
                    while (opos < (N-1) && OBJS[opos] < DPOS) {
                        opos++;
                    }
                } else {
                    opos = N-1;
                }
                if (OBJS[opos] == DPOS) {
                    // Found it!
                    LOGI("Parcel %p found obj %zu at index %zu with forward search",
                          this, DPOS, opos);
                    mNextObjectHint = opos+1;
                    LOGI("readObject Setting data pos of %p to %zu", this, mDataPos);
                    return obj;
                }

                // Look backwards for it...
                while (opos > 0 && OBJS[opos] > DPOS) {
                    opos--;
                }
                if (OBJS[opos] == DPOS) {
                    // Found it!
                    LOGI("Parcel %p found obj %zu at index %zu with backward search",
                          this, DPOS, opos);
                    mNextObjectHint = opos+1;
                    LOGI("readObject Setting data pos of %p to %zu", this, mDataPos);
                    return obj;
                }
            }
            LOGW("Attempt to read object from Parcel %p at offset %zu that is not in the object list",
                  this, DPOS);
        }
        return NULL;
    }

    void Parcel::closeFileDescriptors()
    {
        size_t i = mObjectsSize;
        if (i > 0) {
            //ALOGI("Closing file descriptors for %zu objects...", i);
        }
        while (i > 0) {
            i--;
            const flat_binder_object* flat
                    = reinterpret_cast<flat_binder_object*>(mData+mObjects[i]);
            if (flat->hdr.type == BINDER_TYPE_FD) {
                //ALOGI("Closing fd: %ld", flat->handle);
                close(flat->handle);
            }
        }
    }

    uintptr_t Parcel::ipcData() const
    {
        return reinterpret_cast<uintptr_t>(mData);
    }

    size_t Parcel::ipcDataSize() const
    {
        return (mDataSize > mDataPos ? mDataSize : mDataPos);
    }

    uintptr_t Parcel::ipcObjects() const
    {
        return reinterpret_cast<uintptr_t>(mObjects);
    }

    size_t Parcel::ipcObjectsCount() const
    {
        return mObjectsSize;
    }

    void Parcel::ipcSetDataReference(const uint8_t* data, size_t dataSize,
                                     const binder_size_t* objects, size_t objectsCount, release_func relFunc, void* relCookie)
    {
        binder_size_t minOffset = 0;
        freeDataNoInit();
        mError = NO_ERROR;
        mData = const_cast<uint8_t*>(data);
        mDataSize = mDataCapacity = dataSize;
        //ALOGI("setDataReference Setting data size of %p to %lu (pid=%d)", this, mDataSize, getpid());
        mDataPos = 0;
        LOGI("setDataReference Setting data pos of %p to %zu", this, mDataPos);
        mObjects = const_cast<binder_size_t*>(objects);
        mObjectsSize = mObjectsCapacity = objectsCount;
        mNextObjectHint = 0;
        mOwner = relFunc;
        mOwnerCookie = relCookie;
        for (size_t i = 0; i < mObjectsSize; i++) {
            binder_size_t offset = mObjects[i];
            if (offset < minOffset) {
                LOGE("%s: bad object offset %" PRIu64 " < %" PRIu64 "\n",
                      __func__, (uint64_t)offset, (uint64_t)minOffset);
                mObjectsSize = 0;
                break;
            }
            minOffset = offset + sizeof(flat_binder_object);
        }
        scanForFds();
    }


    void Parcel::releaseObjects()
    {
        size_t i = mObjectsSize;
        uint8_t* const data = mData;
        binder_size_t* const objects = mObjects;
        while (i > 0) {
            i--;
            const flat_binder_object* flat
                    = reinterpret_cast<flat_binder_object*>(data+objects[i]);
            release_object(*flat, this, &mOpenAshmemSize);
        }
    }

    void Parcel::acquireObjects()
    {
        size_t i = mObjectsSize;
        uint8_t* const data = mData;
        binder_size_t* const objects = mObjects;
        while (i > 0) {
            i--;
            const flat_binder_object* flat
                    = reinterpret_cast<flat_binder_object*>(data+objects[i]);
            acquire_object(*flat, this, &mOpenAshmemSize);
        }
    }

    void Parcel::freeData()
    {
        freeDataNoInit();
        initState();
    }

    void Parcel::freeDataNoInit()
    {
        if (mOwner) {
            LOG_ALLOC("Parcel %p: freeing other owner data", this);
            //ALOGI("Freeing data ref of %p (pid=%d)", this, getpid());
            mOwner(this, mData, mDataSize, mObjects, mObjectsSize, mOwnerCookie);
        } else {
            LOG_ALLOC("Parcel %p: freeing allocated data", this);
            releaseObjects();
            if (mData) {
                LOG_ALLOC("Parcel %p: freeing with %zu capacity", this, mDataCapacity);
                pthread_mutex_lock(&gParcelGlobalAllocSizeLock);
                gParcelGlobalAllocSize -= mDataCapacity;
                gParcelGlobalAllocCount--;
                pthread_mutex_unlock(&gParcelGlobalAllocSizeLock);
                free(mData);
            }
            if (mObjects) free(mObjects);
        }
    }

    status_t Parcel::growData(size_t len)
    {
        if (len > INT32_MAX) {
            // don't accept size_t values which may have come from an
            // inadvertent conversion from a negative int.
            return BAD_VALUE;
        }

        size_t newSize = ((mDataSize+len)*3)/2;
        return (newSize <= mDataSize)
               ? (status_t) NO_MEMORY
               : continueWrite(newSize);
    }


    status_t Parcel::continueWrite(size_t desired)
    {
        if (desired > INT32_MAX) {
            // don't accept size_t values which may have come from an
            // inadvertent conversion from a negative int.
            return BAD_VALUE;
        }

        // If shrinking, first adjust for any objects that appear
        // after the new data size.
        size_t objectsSize = mObjectsSize;
        if (desired < mDataSize) {
            if (desired == 0) {
                objectsSize = 0;
            } else {
                while (objectsSize > 0) {
                    if (mObjects[objectsSize-1] < desired)
                        break;
                    objectsSize--;
                }
            }
        }

        if (mOwner) {
            // If the size is going to zero, just release the owner's data.
            if (desired == 0) {
                freeData();
                return NO_ERROR;
            }

            // If there is a different owner, we need to take
            // posession.
            uint8_t* data = (uint8_t*)malloc(desired);
            if (!data) {
                mError = NO_MEMORY;
                return NO_MEMORY;
            }
            binder_size_t* objects = NULL;

            if (objectsSize) {
                objects = (binder_size_t*)calloc(objectsSize, sizeof(binder_size_t));
                if (!objects) {
                    free(data);

                    mError = NO_MEMORY;
                    return NO_MEMORY;
                }

                // Little hack to only acquire references on objects
                // we will be keeping.
                size_t oldObjectsSize = mObjectsSize;
                mObjectsSize = objectsSize;
                acquireObjects();
                mObjectsSize = oldObjectsSize;
            }

            if (mData) {
                memcpy(data, mData, mDataSize < desired ? mDataSize : desired);
            }
            if (objects && mObjects) {
                memcpy(objects, mObjects, objectsSize*sizeof(binder_size_t));
            }
            //ALOGI("Freeing data ref of %p (pid=%d)", this, getpid());
            mOwner(this, mData, mDataSize, mObjects, mObjectsSize, mOwnerCookie);
            mOwner = NULL;

            LOG_ALLOC("Parcel %p: taking ownership of %zu capacity", this, desired);
            pthread_mutex_lock(&gParcelGlobalAllocSizeLock);
            gParcelGlobalAllocSize += desired;
            gParcelGlobalAllocCount++;
            pthread_mutex_unlock(&gParcelGlobalAllocSizeLock);

            mData = data;
            mObjects = objects;
            mDataSize = (mDataSize < desired) ? mDataSize : desired;
            LOGI("continueWrite Setting data size of %p to %zu", this, mDataSize);
            mDataCapacity = desired;
            mObjectsSize = mObjectsCapacity = objectsSize;
            mNextObjectHint = 0;

        } else if (mData) {
            if (objectsSize < mObjectsSize) {
                // Need to release refs on any objects we are dropping.
                for (size_t i=objectsSize; i<mObjectsSize; i++) {
                    const flat_binder_object* flat
                            = reinterpret_cast<flat_binder_object*>(mData+mObjects[i]);
                    if (flat->hdr.type == BINDER_TYPE_FD) {
                        // will need to rescan because we may have lopped off the only FDs
                        mFdsKnown = false;
                    }
                    release_object(*flat, this, &mOpenAshmemSize);
                }
                binder_size_t* objects =
                        (binder_size_t*)realloc(mObjects, objectsSize*sizeof(binder_size_t));
                if (objects) {
                    mObjects = objects;
                }
                mObjectsSize = objectsSize;
                mNextObjectHint = 0;
            }

            // We own the data, so we can just do a realloc().
            if (desired > mDataCapacity) {
                uint8_t* data = (uint8_t*)realloc(mData, desired);
                if (data) {
                    LOG_ALLOC("Parcel %p: continue from %zu to %zu capacity", this, mDataCapacity,
                              desired);
                    pthread_mutex_lock(&gParcelGlobalAllocSizeLock);
                    gParcelGlobalAllocSize += desired;
                    gParcelGlobalAllocSize -= mDataCapacity;
                    pthread_mutex_unlock(&gParcelGlobalAllocSizeLock);
                    mData = data;
                    mDataCapacity = desired;
                } else if (desired > mDataCapacity) {
                    mError = NO_MEMORY;
                    return NO_MEMORY;
                }
            } else {
                if (mDataSize > desired) {
                    mDataSize = desired;
                    LOGI("continueWrite Setting data size of %p to %zu", this, mDataSize);
                }
                if (mDataPos > desired) {
                    mDataPos = desired;
                    LOGI("continueWrite Setting data pos of %p to %zu", this, mDataPos);
                }
            }

        } else {
            // This is the first data.  Easy!
            uint8_t* data = (uint8_t*)malloc(desired);
            if (!data) {
                mError = NO_MEMORY;
                return NO_MEMORY;
            }

            if(!(mDataCapacity == 0 && mObjects == NULL
                 && mObjectsCapacity == 0)) {
                LOGE("continueWrite: %zu/%p/%zu/%zu", mDataCapacity, mObjects, mObjectsCapacity, desired);
            }

            LOG_ALLOC("Parcel %p: allocating with %zu capacity", this, desired);
            pthread_mutex_lock(&gParcelGlobalAllocSizeLock);
            gParcelGlobalAllocSize += desired;
            gParcelGlobalAllocCount++;
            pthread_mutex_unlock(&gParcelGlobalAllocSizeLock);

            mData = data;
            mDataSize = mDataPos = 0;
            LOGI("continueWrite Setting data size of %p to %zu", this, mDataSize);
            LOGI("continueWrite Setting data pos of %p to %zu", this, mDataPos);
            mDataCapacity = desired;
        }

        return NO_ERROR;
    }

    void Parcel::initState()
    {
        LOG_ALLOC("Parcel %p: initState", this);
        mError = NO_ERROR;
        mData = 0;
        mDataSize = 0;
        mDataCapacity = 0;
        mDataPos = 0;
        LOGI("initState Setting data size of %p to %zu", this, mDataSize);
        LOGI("initState Setting data pos of %p to %zu", this, mDataPos);
        mObjects = NULL;
        mObjectsSize = 0;
        mObjectsCapacity = 0;
        mNextObjectHint = 0;
        mHasFds = false;
        mFdsKnown = true;
        mAllowFds = true;
        mOwner = NULL;
        mOpenAshmemSize = 0;
    }

    void Parcel::scanForFds() const
    {
        bool hasFds = false;
        for (size_t i=0; i<mObjectsSize; i++) {
            const flat_binder_object* flat
                    = reinterpret_cast<const flat_binder_object*>(mData + mObjects[i]);
            if (flat->hdr.type == BINDER_TYPE_FD) {
                hasFds = true;
                break;
            }
        }
        mHasFds = hasFds;
        mFdsKnown = true;
    }

    size_t Parcel::getBlobAshmemSize() const
    {
        // This used to return the size of all blobs that were written to ashmem, now we're returning
        // the ashmem currently referenced by this Parcel, which should be equivalent.
        // TODO: Remove method once ABI can be changed.
        return mOpenAshmemSize;
    }

    size_t Parcel::getOpenAshmemSize() const
    {
        return mOpenAshmemSize;
    }

// --- Parcel::Blob ---

    Parcel::Blob::Blob() :
            mFd(-1), mData(NULL), mSize(0), mMutable(false) {
    }

    Parcel::Blob::~Blob() {
        release();
    }

    void Parcel::Blob::release() {
        if (mFd != -1 && mData) {
            ::munmap(mData, mSize);
        }
        clear();
    }

    void Parcel::Blob::init(int fd, void* data, size_t size, bool isMutable) {
        mFd = fd;
        mData = data;
        mSize = size;
        mMutable = isMutable;
    }

    void Parcel::Blob::clear() {
        mFd = -1;
        mData = NULL;
        mSize = 0;
        mMutable = false;
    }

}; // namespace android
